home *** CD-ROM | disk | FTP | other *** search
/ Ultra Pack / UltraComputing Partner Applications.iso / SunLabs / tclTK / src / tcl7.4p2.patch < prev    next >
Text File  |  1995-09-18  |  15KB  |  515 lines
  1. Prereq: "7.4p1"
  2. *** ../tcl7.4p1/patchlevel.h    Fri Jul 28 10:08:25 1995
  3. --- patchlevel.h    Mon Sep 18 11:41:25 1995
  4. ***************
  5. *** 17,23 ****
  6.    * See the file "license.terms" for information on usage and redistribution
  7.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  8.    *
  9. !  * @(#) patchlevel.h 1.10 95/07/28 10:08:24
  10.    */
  11.   
  12. ! #define TCL_PATCH_LEVEL "7.4p1"
  13. --- 17,23 ----
  14.    * See the file "license.terms" for information on usage and redistribution
  15.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.    *
  17. !  * @(#) patchlevel.h 1.11 95/09/18 11:41:22
  18.    */
  19.   
  20. ! #define TCL_PATCH_LEVEL "7.4p2"
  21. *** ../tcl7.4p1/./tclBasic.c    Tue Jul 25 13:01:45 1995
  22. --- ./tclBasic.c    Tue Sep  5 11:37:35 1995
  23. ***************
  24. *** 12,18 ****
  25.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  26.    */
  27.   
  28. ! static char sccsid[] = "@(#) tclBasic.c 1.169 95/07/25 13:01:44";
  29.   
  30.   #include "tclInt.h"
  31.   #ifndef TCL_GENERIC_ONLY
  32. --- 12,18 ----
  33.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  34.    */
  35.   
  36. ! static char sccsid[] = "@(#) tclBasic.c 1.171 95/09/05 11:37:34";
  37.   
  38.   #include "tclInt.h"
  39.   #ifndef TCL_GENERIC_ONLY
  40. ***************
  41. *** 210,215 ****
  42. --- 210,216 ----
  43.           cmdPtr->clientData = (ClientData) NULL;
  44.           cmdPtr->deleteProc = NULL;
  45.           cmdPtr->deleteData = (ClientData) NULL;
  46. +         cmdPtr->deleted = 0;
  47.           Tcl_SetHashValue(hPtr, cmdPtr);
  48.       }
  49.       }
  50. ***************
  51. *** 435,444 ****
  52.       for (hPtr = Tcl_FirstHashEntry(&iPtr->commandTable, &search);
  53.           hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
  54.       cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
  55. !     if (cmdPtr->deleteProc != NULL) { 
  56. !         (*cmdPtr->deleteProc)(cmdPtr->deleteData);
  57.       }
  58. -     ckfree((char *) cmdPtr);
  59.       }
  60.       Tcl_DeleteHashTable(&iPtr->commandTable);
  61.       for (hPtr = Tcl_FirstHashEntry(&iPtr->mathFuncTable, &search);
  62. --- 436,448 ----
  63.       for (hPtr = Tcl_FirstHashEntry(&iPtr->commandTable, &search);
  64.           hPtr != NULL; hPtr = Tcl_NextHashEntry(&search)) {
  65.       cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
  66. !     if (!cmdPtr->deleted) {
  67. !         cmdPtr->deleted = 1;
  68. !         if (cmdPtr->deleteProc != NULL) {
  69. !         (*cmdPtr->deleteProc)(cmdPtr->deleteData);
  70. !         }
  71. !         ckfree((char *) cmdPtr);
  72.       }
  73.       }
  74.       Tcl_DeleteHashTable(&iPtr->commandTable);
  75.       for (hPtr = Tcl_FirstHashEntry(&iPtr->mathFuncTable, &search);
  76. ***************
  77. *** 533,538 ****
  78. --- 537,550 ----
  79.       Tcl_HashEntry *hPtr;
  80.       int new;
  81.   
  82. +     if (iPtr->flags & DELETED) {
  83. +     /*
  84. +      * The interpreter is being deleted.  Don't create any new
  85. +      * commands;  it's not safe to muck with the interpreter anymore.
  86. +      */
  87. + 
  88. +     return (Tcl_Command) NULL;
  89. +     }
  90.       hPtr = Tcl_CreateHashEntry(&iPtr->commandTable, cmdName, &new);
  91.       if (!new) {
  92.       /*
  93. ***************
  94. *** 539,557 ****
  95.        * Command already exists:  delete the old one.
  96.        */
  97.   
  98. !     cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
  99. !     if (cmdPtr->deleteProc != NULL) {
  100. !         (*cmdPtr->deleteProc)(cmdPtr->deleteData);
  101. !     }
  102. !     } else {
  103. !     cmdPtr = (Command *) ckalloc(sizeof(Command));
  104. !     Tcl_SetHashValue(hPtr, cmdPtr);
  105.       }
  106.       cmdPtr->hPtr = hPtr;
  107.       cmdPtr->proc = proc;
  108.       cmdPtr->clientData = clientData;
  109.       cmdPtr->deleteProc = deleteProc;
  110.       cmdPtr->deleteData = clientData;
  111.       return (Tcl_Command) cmdPtr;
  112.   }
  113.   
  114. --- 551,576 ----
  115.        * Command already exists:  delete the old one.
  116.        */
  117.   
  118. !     Tcl_DeleteCommand(interp, Tcl_GetHashKey(&iPtr->commandTable, hPtr));
  119. !     hPtr = Tcl_CreateHashEntry(&iPtr->commandTable, cmdName, &new);
  120. !     if (!new) {
  121. !         /*
  122. !          * Drat.  The stupid deletion callback recreated the command.
  123. !          * Just throw away the new command (if we try to delete it again,
  124. !          * we could get stuck in an infinite loop).
  125. !          */
  126. ! 
  127. !          ckfree((char  *) Tcl_GetHashValue(hPtr));
  128. !      }
  129.       }
  130. +     cmdPtr = (Command *) ckalloc(sizeof(Command));
  131. +     Tcl_SetHashValue(hPtr, cmdPtr);
  132.       cmdPtr->hPtr = hPtr;
  133.       cmdPtr->proc = proc;
  134.       cmdPtr->clientData = clientData;
  135.       cmdPtr->deleteProc = deleteProc;
  136.       cmdPtr->deleteData = clientData;
  137. +     cmdPtr->deleted = 0;
  138.       return (Tcl_Command) cmdPtr;
  139.   }
  140.   
  141. ***************
  142. *** 699,704 ****
  143. --- 718,732 ----
  144.       Tcl_HashEntry *hPtr;
  145.       Command *cmdPtr;
  146.   
  147. +     if (iPtr->flags & DELETED) {
  148. +     /*
  149. +      * The interpreter is being deleted, so this command has already
  150. +      * been deleted, or will be soon.  It's not safe to muck with the
  151. +      * interpreter anymore.
  152. +      */
  153. + 
  154. +     return -1;
  155. +     }
  156.       hPtr = Tcl_FindHashEntry(&iPtr->commandTable, cmdName);
  157.       if (hPtr == NULL) {
  158.       return -1;
  159. ***************
  160. *** 706,719 ****
  161.       cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
  162.   
  163.       /*
  164. !      * Delete the hash table entry before invoking the deletion callback;
  165. !      * otherwise the callback could delete the command a second time, or
  166. !      * create a new command on top of the one we're deleting.
  167.        */
  168.   
  169. !     Tcl_DeleteHashEntry(hPtr);
  170.       if (cmdPtr->deleteProc != NULL) {
  171.       (*cmdPtr->deleteProc)(cmdPtr->deleteData);
  172.       }
  173.       ckfree((char *) cmdPtr);
  174.       return 0;
  175. --- 734,772 ----
  176.       cmdPtr = (Command *) Tcl_GetHashValue(hPtr);
  177.   
  178.       /*
  179. !      * The code here is tricky.  We can't delete the hash table entry
  180. !      * before invoking the deletion callback because there are cases
  181. !      * where the deletion callback needs to invoke the command (e.g.
  182. !      * object systems such as OTcl).  However, this means that the
  183. !      * callback could try to delete or rename the command.  The deleted
  184. !      * flag allows us to detect these cases and skip nested deletes.
  185.        */
  186.   
  187. !     if (cmdPtr->deleted) {
  188. !     /*
  189. !      * Another deletion is already in progress.  Remove the hash
  190. !      * table entry now, but don't invoke a callback or free the
  191. !      * command structure.
  192. !      */
  193. ! 
  194. !     Tcl_DeleteHashEntry(hPtr);
  195. !     cmdPtr->hPtr = NULL;
  196. !     return 0;
  197. !     }
  198. !     cmdPtr->deleted = 1;
  199.       if (cmdPtr->deleteProc != NULL) {
  200.       (*cmdPtr->deleteProc)(cmdPtr->deleteData);
  201. +     }
  202. + 
  203. +     /*
  204. +      * Don't use hPtr to delete the hash entry here, because it's
  205. +      * possible that the deletion callback renamed the command.
  206. +      * Instead, use cmdPtr->hptr, and make sure that no-one else
  207. +      * has already deleted the hash entry.
  208. +      */
  209. + 
  210. +     if (cmdPtr->hPtr != NULL) {
  211. +     Tcl_DeleteHashEntry(cmdPtr->hPtr);
  212.       }
  213.       ckfree((char *) cmdPtr);
  214.       return 0;
  215. *** ../tcl7.4p1/./tclCmdMZ.c    Sun Apr 30 14:35:16 1995
  216. --- ./tclCmdMZ.c    Fri Aug  4 09:57:59 1995
  217. ***************
  218. *** 14,20 ****
  219.    */
  220.   
  221.   #ifndef lint
  222. ! static char sccsid[] = "@(#) tclCmdMZ.c 1.57 95/04/30 14:35:17";
  223.   #endif
  224.   
  225.   #include "tclInt.h"
  226. --- 14,20 ----
  227.    */
  228.   
  229.   #ifndef lint
  230. ! static char sccsid[] = "@(#) tclCmdMZ.c 1.58 95/08/04 09:58:00";
  231.   #endif
  232.   
  233.   #include "tclInt.h"
  234. ***************
  235. *** 122,128 ****
  236.       pattern = Tcl_DStringValue(&patternDString);
  237.       for (p = pattern; *p != 0; p++) {
  238.           if (isupper(UCHAR(*p))) {
  239. !         *p = tolower(*p);
  240.           }
  241.       }
  242.       Tcl_DStringInit(&stringDString);
  243. --- 122,128 ----
  244.       pattern = Tcl_DStringValue(&patternDString);
  245.       for (p = pattern; *p != 0; p++) {
  246.           if (isupper(UCHAR(*p))) {
  247. !         *p = tolower(UCHAR(*p));
  248.           }
  249.       }
  250.       Tcl_DStringInit(&stringDString);
  251. ***************
  252. *** 130,136 ****
  253.       string = Tcl_DStringValue(&stringDString);
  254.       for (p = string; *p != 0; p++) {
  255.           if (isupper(UCHAR(*p))) {
  256. !         *p = tolower(*p);
  257.           }
  258.       }
  259.       } else {
  260. --- 130,136 ----
  261.       string = Tcl_DStringValue(&stringDString);
  262.       for (p = string; *p != 0; p++) {
  263.           if (isupper(UCHAR(*p))) {
  264. !         *p = tolower(UCHAR(*p));
  265.           }
  266.       }
  267.       } else {
  268. ***************
  269. *** 270,276 ****
  270.       pattern = Tcl_DStringValue(&patternDString);
  271.       for (p = pattern; *p != 0; p++) {
  272.           if (isupper(UCHAR(*p))) {
  273. !         *p = tolower(*p);
  274.           }
  275.       }
  276.       Tcl_DStringInit(&stringDString);
  277. --- 270,276 ----
  278.       pattern = Tcl_DStringValue(&patternDString);
  279.       for (p = pattern; *p != 0; p++) {
  280.           if (isupper(UCHAR(*p))) {
  281. !         *p = tolower(UCHAR(*p));
  282.           }
  283.       }
  284.       Tcl_DStringInit(&stringDString);
  285. ***************
  286. *** 278,284 ****
  287.       string = Tcl_DStringValue(&stringDString);
  288.       for (p = string; *p != 0; p++) {
  289.           if (isupper(UCHAR(*p))) {
  290. !         *p = tolower(*p);
  291.           }
  292.       }
  293.       } else {
  294. --- 278,284 ----
  295.       string = Tcl_DStringValue(&stringDString);
  296.       for (p = string; *p != 0; p++) {
  297.           if (isupper(UCHAR(*p))) {
  298. !         *p = tolower(UCHAR(*p));
  299.           }
  300.       }
  301.       } else {
  302. ***************
  303. *** 1134,1140 ****
  304.       Tcl_SetResult(interp, argv[2], TCL_VOLATILE);
  305.       for (p = interp->result; *p != 0; p++) {
  306.           if (isupper(UCHAR(*p))) {
  307. !         *p = tolower(*p);
  308.           }
  309.       }
  310.       return TCL_OK;
  311. --- 1134,1140 ----
  312.       Tcl_SetResult(interp, argv[2], TCL_VOLATILE);
  313.       for (p = interp->result; *p != 0; p++) {
  314.           if (isupper(UCHAR(*p))) {
  315. !         *p = tolower(UCHAR(*p));
  316.           }
  317.       }
  318.       return TCL_OK;
  319. ***************
  320. *** 1150,1156 ****
  321.       Tcl_SetResult(interp, argv[2], TCL_VOLATILE);
  322.       for (p = interp->result; *p != 0; p++) {
  323.           if (islower(UCHAR(*p))) {
  324. !         *p = toupper(*p);
  325.           }
  326.       }
  327.       return TCL_OK;
  328. --- 1150,1156 ----
  329.       Tcl_SetResult(interp, argv[2], TCL_VOLATILE);
  330.       for (p = interp->result; *p != 0; p++) {
  331.           if (islower(UCHAR(*p))) {
  332. !         *p = toupper(UCHAR(*p));
  333.           }
  334.       }
  335.       return TCL_OK;
  336. *** ../tcl7.4p1/./tclVar.c    Fri Jun  2 09:29:15 1995
  337. --- ./tclVar.c    Fri Aug  4 09:38:17 1995
  338. ***************
  339. *** 14,20 ****
  340.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  341.    */
  342.   
  343. ! static char sccsid[] = "@(#) tclVar.c 1.61 95/06/02 09:29:16";
  344.   
  345.   #include "tclInt.h"
  346.   #include "tclPort.h"
  347. --- 14,20 ----
  348.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  349.    */
  350.   
  351. ! static char sccsid[] = "@(#) tclVar.c 1.62 95/08/04 09:38:18";
  352.   
  353.   #include "tclInt.h"
  354.   #include "tclPort.h"
  355. ***************
  356. *** 2016,2022 ****
  357.                        * indicates what's happening to
  358.                        * variable, plus other stuff like
  359.                        * TCL_GLOBAL_ONLY and
  360. !                      * TCL_INTERP_DESTROYED. */
  361.   {
  362.       register VarTrace *tracePtr;
  363.       ActiveVarTrace active;
  364. --- 2016,2025 ----
  365.                        * indicates what's happening to
  366.                        * variable, plus other stuff like
  367.                        * TCL_GLOBAL_ONLY and
  368. !                      * TCL_INTERP_DESTROYED.   May also
  369. !                      * contain PART1_NOT_PARSEd, which
  370. !                      * should not be passed through
  371. !                      * to callbacks. */
  372.   {
  373.       register VarTrace *tracePtr;
  374.       ActiveVarTrace active;
  375. ***************
  376. *** 2069,2075 ****
  377.           }
  378.       }
  379.       }
  380. ! 
  381.   
  382.       /*
  383.        * Invoke traces on the array containing the variable, if relevant.
  384. --- 2072,2078 ----
  385.           }
  386.       }
  387.       }
  388. !     flags &= ~PART1_NOT_PARSED;
  389.   
  390.       /*
  391.        * Invoke traces on the array containing the variable, if relevant.
  392. *** ../tcl7.4p1/./tclUnixUtil.c    Sat Jul 22 17:31:37 1995
  393. --- ./tclUnixUtil.c    Mon Aug 28 08:57:36 1995
  394. ***************
  395. *** 16,22 ****
  396.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  397.    */
  398.   
  399. ! static char sccsid[] = "@(#) tclUnixUtil.c 1.56 95/07/22 17:31:36";
  400.   
  401.   #include "tclInt.h"
  402.   #include "tclPort.h"
  403. --- 16,22 ----
  404.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  405.    */
  406.   
  407. ! static char sccsid[] = "@(#) tclUnixUtil.c 1.57 95/08/28 08:57:37";
  408.   
  409.   #include "tclInt.h"
  410.   #include "tclPort.h"
  411. ***************
  412. *** 691,696 ****
  413. --- 691,699 ----
  414.           goto error;
  415.       }
  416.       execName = Tcl_TildeSubst(interp, argv[firstArg], &buffer);
  417. +     if (execName == NULL) {
  418. +         goto error;
  419. +     }
  420.       pid = vfork();
  421.       if (pid == 0) {
  422.           if (((inputId != -1) && (dup2(inputId, 0) == -1))
  423. *** ../tcl7.4p1/./tclInt.h    Wed Jun 28 09:36:24 1995
  424. --- ./tclInt.h    Fri Aug 25 15:44:50 1995
  425. ***************
  426. *** 9,15 ****
  427.    * See the file "license.terms" for information on usage and redistribution
  428.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  429.    *
  430. !  * @(#) tclInt.h 1.105 95/06/28 09:36:23
  431.    */
  432.   
  433.   #ifndef _TCLINT
  434. --- 9,15 ----
  435.    * See the file "license.terms" for information on usage and redistribution
  436.    * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  437.    *
  438. !  * @(#) tclInt.h 1.106 95/08/25 15:44:50
  439.    */
  440.   
  441.   #ifndef _TCLINT
  442. ***************
  443. *** 415,421 ****
  444.       Tcl_HashEntry *hPtr;    /* Pointer to the hash table entry in
  445.                    * interp->commandTable that refers to
  446.                    * this command.  Used to get a command's
  447. !                  * name from its Tcl_Command handle. */
  448.       Tcl_CmdProc *proc;        /* Procedure to process command. */
  449.       ClientData clientData;    /* Arbitrary value to pass to proc. */
  450.       Tcl_CmdDeleteProc *deleteProc;
  451. --- 415,425 ----
  452.       Tcl_HashEntry *hPtr;    /* Pointer to the hash table entry in
  453.                    * interp->commandTable that refers to
  454.                    * this command.  Used to get a command's
  455. !                  * name from its Tcl_Command handle.  NULL
  456. !                  * means that the hash table entry has
  457. !                  * been removed already (this can happen
  458. !                  * if deleteProc causes the command to be
  459. !                  * deleted or recreated). */
  460.       Tcl_CmdProc *proc;        /* Procedure to process command. */
  461.       ClientData clientData;    /* Arbitrary value to pass to proc. */
  462.       Tcl_CmdDeleteProc *deleteProc;
  463. ***************
  464. *** 423,428 ****
  465. --- 427,436 ----
  466.                    * command. */
  467.       ClientData deleteData;    /* Arbitrary value to pass to deleteProc
  468.                    * (usually the same as clientData). */
  469. +     int deleted;        /* Means that the command is in the process
  470. +                  * of being deleted (its deleteProc is
  471. +                  * currently executing).  Any other attempts
  472. +                  * to delete the command should be ignored. */
  473.   } Command;
  474.   
  475.   /*
  476. *** ../tcl7.4p1/./changes    Fri Jul 28 10:20:44 1995
  477. --- ./changes    Mon Sep 18 11:04:09 1995
  478. ***************
  479. *** 1,6 ****
  480.   Recent user-visible changes to Tcl:
  481.   
  482. ! sccsid = %Z% %M% %I% %E% %U%
  483.   
  484.   1. No more [command1] [command2] construct for grouping multiple
  485.   commands on a single command line.
  486. --- 1,6 ----
  487.   Recent user-visible changes to Tcl:
  488.   
  489. ! sccsid = @(#) changes 1.16 95/09/18 11:04:07
  490.   
  491.   1. No more [command1] [command2] construct for grouping multiple
  492.   commands on a single command line.
  493. ***************
  494. *** 1242,1244 ****
  495. --- 1242,1260 ----
  496.   handle the case where endPtr == NULL.
  497.   
  498.   ----------------- Released patch 7.4p1, 7/29/95 -----------------------
  499. + 
  500. + 8/4/95 (bug fix) C-level trace callbacks for variables were sometimes
  501. + receiving the PART1_NOT_PARSED flag, which could cause errors in
  502. + subsequent Tcl library calls using the flags.
  503. + 
  504. + 8/4/95 (bug fix) Calls to toupper and tolower weren't using the
  505. + UCHAR macros, which caused trouble in non-U.S. locales. (JO)
  506. + 
  507. + 8/25/95 (bug fix) Undid change from 7/19, so that commands can stay
  508. + around while their deletion callbacks execute.  Added lots of code to
  509. + handle all of the reentrancy problems that this opens up.
  510. + 
  511. + 8/28/95 (bug fix) Exec wasn't handling bad user names properly, as
  512. + in "exec ~bogus_user/foo".
  513. + 
  514. + ----------------- Released patch 7.4p2, 9/19/95 -----------------------
  515.